/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / lucid.elc.z / lucid.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 36 | 3a 30 36 3a 30 39 20 31 |an 14 06|:06:09 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 6c 75 63 69 64 2e |19.0/lis|p/lucid.|
|00000070| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|00000080| 73 69 6f 6e 20 31 39 2e | 33 30 2e 37 30 2e 36 2e |sion 19.|30.70.6.|
|00000090| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000a0| 72 73 69 6f 6e 20 46 53 | 46 20 32 2e 31 30 0a 3b |rsion FS|F 2.10.;|
|000000b0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000c0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|000000d0| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|000000e0| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|000000f0| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 38 |xist in |Emacs 18|
|00000100| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000110| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000120| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000130| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000140| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|00000160| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 2e 32 39 |s-versio|n "19.29|
|00000180| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))).   | (error |
|00000190| 22 60 6c 75 63 69 64 2e | 65 6c 27 20 77 61 73 20 |"`lucid.|el' was |
|000001a0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001b0| 63 73 20 31 39 2e 32 39 | 20 6f 72 20 6c 61 74 65 |cs 19.29| or late|
|000001c0| 72 22 29 29 0a 0a 0a 28 | 64 65 66 61 6c 69 61 73 |r"))...(|defalias|
|000001d0| 20 27 61 64 64 2d 74 69 | 6d 65 6f 75 74 20 23 5b | 'add-ti|meout #[|
|000001e0| 28 73 65 63 73 20 66 75 | 6e 63 74 69 6f 6e 20 6f |(secs fu|nction o|
|000001f0| 62 6a 65 63 74 20 26 6f | 70 74 69 6f 6e 61 6c 20 |bject &o|ptional |
|00000200| 72 65 73 69 67 6e 61 6c | 29 20 22 c0 09 5c 6e 0b |resignal|) "..\n.|
|00000210| 5c 66 24 87 22 20 5b 72 | 75 6e 2d 61 74 2d 74 69 |\f$." [r|un-at-ti|
|00000220| 6d 65 20 73 65 63 73 20 | 72 65 73 69 67 6e 61 6c |me secs |resignal|
|00000230| 20 66 75 6e 63 74 69 6f | 6e 20 6f 62 6a 65 63 74 | functio|n object|
|00000240| 5d 20 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 5]).(d|efalias |
|00000250| 27 64 69 73 61 62 6c 65 | 2d 74 69 6d 65 6f 75 74 |'disable|-timeout|
|00000260| 20 23 5b 28 74 69 6d 65 | 6f 75 74 29 20 22 c0 09 | #[(time|out) "..|
|00000270| 21 87 22 20 5b 63 61 6e | 63 65 6c 2d 74 69 6d 65 |!." [can|cel-time|
|00000280| 72 20 74 69 6d 65 6f 75 | 74 5d 20 32 5d 29 0a 28 |r timeou|t] 2]).(|
|00000290| 64 65 66 61 6c 69 61 73 | 20 27 63 6f 70 79 2d 74 |defalias| 'copy-t|
|000002a0| 72 65 65 20 23 5b 28 74 | 72 65 65 29 20 22 08 3a |ree #[(t|ree) ".:|
|000002b0| 83 0f 00 c1 08 40 21 c1 | 08 41 21 42 87 c2 08 21 |.....@!.|.A!B...!|
|000002c0| 83 36 00 c3 08 21 89 1c | 47 53 89 1d c6 59 83 33 |.6...!..|GS...Y.3|
|000002d0| 00 5c 66 0d c1 5c 66 0d | 48 21 49 88 0d 53 89 15 |.\f..\f.|H!I..S..|
|000002e0| 82 1e 00 5c 66 2a 87 08 | 87 22 20 5b 74 72 65 65 |...\f*..|." [tree|
|000002f0| 20 63 6f 70 79 2d 74 72 | 65 65 20 76 65 63 74 6f | copy-tr|ee vecto|
|00000300| 72 70 20 63 6f 70 79 2d | 73 65 71 75 65 6e 63 65 |rp copy-|sequence|
|00000310| 20 6e 65 77 20 69 20 30 | 5d 20 36 5d 29 0a 28 64 | new i 0|] 6]).(d|
|00000320| 65 66 61 6c 69 61 73 20 | 28 71 75 6f 74 65 20 63 |efalias |(quote c|
|00000330| 75 72 72 65 6e 74 2d 74 | 69 6d 65 2d 73 65 63 6f |urrent-t|ime-seco|
|00000340| 6e 64 73 29 20 28 71 75 | 6f 74 65 20 63 75 72 72 |nds) (qu|ote curr|
|00000350| 65 6e 74 2d 74 69 6d 65 | 29 29 0a 28 64 65 66 61 |ent-time|)).(defa|
|00000360| 6c 69 61 73 20 27 6b 65 | 79 6d 61 70 2d 70 61 72 |lias 'ke|ymap-par|
|00000370| 65 6e 74 20 23 5b 28 6b | 65 79 6d 61 70 29 20 22 |ent #[(k|eymap) "|
|00000380| 08 41 89 19 83 15 00 09 | 40 c0 3d 84 15 00 09 41 |.A......|@.=....A|
|00000390| 89 11 84 07 00 09 29 87 | 22 20 5b 6b 65 79 6d 61 |......).|" [keyma|
|000003a0| 70 20 74 61 69 6c 5d 20 | 33 5d 29 0a 28 64 65 66 |p tail] |3]).(def|
|000003b0| 61 6c 69 61 73 20 27 73 | 65 74 2d 6b 65 79 6d 61 |alias 's|et-keyma|
|000003c0| 70 2d 70 61 72 65 6e 74 | 20 23 5b 28 6b 65 79 6d |p-parent| #[(keym|
|000003d0| 61 70 20 6e 65 77 2d 70 | 61 72 65 6e 74 29 20 22 |ap new-p|arent) "|
|000003e0| 08 89 19 83 1a 00 09 41 | 83 1a 00 09 41 40 c0 3d |.......A|....A@.=|
|000003f0| 84 1a 00 09 41 89 11 84 | 06 00 09 85 21 00 09 5c |....A...|....!..\|
|00000400| 6e a1 29 87 22 20 5b 6b | 65 79 6d 61 70 20 74 61 |n.)." [k|eymap ta|
|00000410| 69 6c 20 6e 65 77 2d 70 | 61 72 65 6e 74 5d 20 33 |il new-p|arent] 3|
|00000420| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 65 |]).(defa|lias 're|
|00000430| 6d 70 72 6f 70 20 23 5b | 28 73 79 6d 62 6f 6c 20 |mprop #[|(symbol |
|00000440| 70 72 6f 70 29 20 22 c0 | 09 21 1a 5c 6e 40 0b 3d |prop) ".|.!.\n@.=|
|00000450| 83 17 00 c4 09 5c 6e 41 | 41 89 12 5c 22 88 82 04 |.....\nA|A..\"...|
|00000460| 00 5c 6e 85 33 00 c5 5c | 6e 38 0b 3d 83 2a 00 5c |.\n.3..\|n8.=.*.\|
|00000470| 6e 41 c6 5c 6e 9b a1 88 | 5c 6e 41 41 89 12 84 1b |nA.\n...|\nAA....|
|00000480| 00 c7 29 87 22 20 5b 73 | 79 6d 62 6f 6c 2d 70 6c |..)." [s|ymbol-pl|
|00000490| 69 73 74 20 73 79 6d 62 | 6f 6c 20 70 6c 69 73 74 |ist symb|ol plist|
|000004a0| 20 70 72 6f 70 20 73 65 | 74 70 6c 69 73 74 20 32 | prop se|tplist 2|
|000004b0| 20 34 20 6e 69 6c 5d 20 | 35 5d 29 0a 23 40 35 32 | 4 nil] |5]).#@52|
|000004c0| 30 20 43 61 6c 6c 20 46 | 55 4e 43 54 49 4f 4e 20 |0 Call F|UNCTION |
|000004d0| 66 6f 72 20 65 76 65 72 | 79 20 62 69 6e 64 69 6e |for ever|y bindin|
|000004e0| 67 20 69 6e 20 4b 45 59 | 4d 41 50 2e 0a 54 68 69 |g in KEY|MAP..Thi|
|000004f0| 73 20 69 6e 63 6c 75 64 | 65 73 20 62 69 6e 64 69 |s includ|es bindi|
|00000500| 6e 67 73 20 69 6e 68 65 | 72 69 74 65 64 20 66 72 |ngs inhe|rited fr|
|00000510| 6f 6d 20 61 20 70 61 72 | 65 6e 74 20 6b 65 79 6d |om a par|ent keym|
|00000520| 61 70 2e 0a 46 55 4e 43 | 54 49 4f 4e 20 72 65 63 |ap..FUNC|TION rec|
|00000530| 65 69 76 65 73 20 74 77 | 6f 20 61 72 67 75 6d 65 |eives tw|o argume|
|00000540| 6e 74 73 20 65 61 63 68 | 20 74 69 6d 65 20 69 74 |nts each| time it|
|00000550| 20 69 73 20 63 61 6c 6c | 65 64 3a 0a 74 68 65 20 | is call|ed:.the |
|00000560| 63 68 61 72 61 63 74 65 | 72 20 28 6d 6f 72 65 20 |characte|r (more |
|00000570| 67 65 6e 65 72 61 6c 6c | 79 2c 20 74 68 65 20 65 |generall|y, the e|
|00000580| 76 65 6e 74 20 74 79 70 | 65 29 20 74 68 61 74 20 |vent typ|e) that |
|00000590| 69 73 20 62 6f 75 6e 64 | 2c 0a 61 6e 64 20 74 68 |is bound|,.and th|
|000005a0| 65 20 62 69 6e 64 69 6e | 67 20 69 74 20 68 61 73 |e bindin|g it has|
|000005b0| 2e 0a 0a 4e 6f 74 65 20 | 74 68 61 74 20 70 61 73 |...Note |that pas|
|000005c0| 73 69 6e 67 20 74 68 65 | 20 65 76 65 6e 74 20 74 |sing the| event t|
|000005d0| 79 70 65 20 64 69 72 65 | 63 74 6c 79 20 74 6f 20 |ype dire|ctly to |
|000005e0| 60 64 65 66 69 6e 65 2d | 6b 65 79 27 20 64 6f 65 |`define-|key' doe|
|000005f0| 73 20 6e 6f 74 20 77 6f | 72 6b 0a 69 6e 20 45 6d |s not wo|rk.in Em|
|00000600| 61 63 73 20 31 39 2e 20 | 20 57 65 20 64 6f 20 6e |acs 19. | We do n|
|00000610| 6f 74 20 65 6d 75 6c 61 | 74 65 20 74 68 61 74 20 |ot emula|te that |
|00000620| 70 61 72 74 69 63 75 6c | 61 72 20 66 65 61 74 75 |particul|ar featu|
|00000630| 72 65 20 6f 66 20 4c 75 | 63 69 64 20 45 6d 61 63 |re of Lu|cid Emac|
|00000640| 73 2e 0a 49 66 20 79 6f | 75 72 20 63 6f 64 65 20 |s..If yo|ur code |
|00000650| 64 6f 65 73 20 74 68 61 | 74 2c 20 6d 6f 64 69 66 |does tha|t, modif|
|00000660| 79 20 69 74 20 74 6f 20 | 6d 61 6b 65 20 61 20 76 |y it to |make a v|
|00000670| 65 63 74 6f 72 20 63 6f | 6e 74 61 69 6e 69 6e 67 |ector co|ntaining|
|00000680| 20 74 68 65 20 65 76 65 | 6e 74 0a 74 79 70 65 20 | the eve|nt.type |
|00000690| 74 68 61 74 20 79 6f 75 | 20 67 65 74 2e 20 20 54 |that you| get.  T|
|000006a0| 68 61 74 20 77 69 6c 6c | 20 77 6f 72 6b 20 69 6e |hat will| work in|
|000006b0| 20 62 6f 74 68 20 76 65 | 72 73 69 6f 6e 73 20 6f | both ve|rsions o|
|000006c0| 66 20 45 6d 61 63 73 2e | 1f 0a 28 64 65 66 61 6c |f Emacs.|..(defal|
|000006d0| 69 61 73 20 27 6d 61 70 | 2d 6b 65 79 6d 61 70 20 |ias 'map|-keymap |
|000006e0| 23 5b 28 66 75 6e 63 74 | 69 6f 6e 20 6b 65 79 6d |#[(funct|ion keym|
|000006f0| 61 70 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 6f 72 |ap &opti|onal sor|
|00000700| 74 2d 66 69 72 73 74 29 | 20 22 08 83 28 00 c1 1a |t-first)| "..(...|
|00000710| c3 c4 0d 5c 22 88 c6 5c | 6e c7 5c 22 89 12 85 26 |...\"..\|n.\"...&|
|00000720| 00 0e 08 5c 6e 40 40 5c | 6e 40 41 5c 22 88 5c 6e |...\n@@\|n@A\".\n|
|00000730| 41 89 12 84 14 00 c1 29 | 87 0d 3a 85 73 00 0d 40 |A......)|..:.s..@|
|00000740| 3a 83 40 00 0e 08 0d 40 | 40 0d 40 41 5c 22 88 82 |:.@....@|@.@A\"..|
|00000750| 6c 00 c9 0d 40 21 83 6c | 00 0d 40 47 53 0d 40 1e |l...@!.l|..@GS.@.|
|00000760| 5c 6e 89 1e 0b cc 59 83 | 6b 00 0e 08 0e 0b 0e 5c |\n....Y.|k......\|
|00000770| 6e 0e 0b 48 5c 22 88 0e | 0b 53 89 16 0b 82 52 00 |n..H\"..|.S....R.|
|00000780| 2a 0d 41 89 15 82 29 00 | 87 22 20 5b 73 6f 72 74 |*.A...).|." [sort|
|00000790| 2d 66 69 72 73 74 20 6e | 69 6c 20 6c 69 73 74 20 |-first n|il list |
|000007a0| 6d 61 70 2d 6b 65 79 6d | 61 70 20 23 5b 28 61 20 |map-keym|ap #[(a |
|000007b0| 62 29 20 22 08 09 42 5c | 6e 42 89 12 87 22 20 5b |b) "..B\|nB..." [|
|000007c0| 61 20 62 20 6c 69 73 74 | 5d 20 32 5d 20 6b 65 79 |a b list|] 2] key|
|000007d0| 6d 61 70 20 73 6f 72 74 | 20 23 5b 28 61 20 62 29 |map sort| #[(a b)|
|000007e0| 20 22 08 40 10 09 40 11 | 08 a8 83 16 00 09 a8 83 | ".@..@.|........|
|000007f0| 14 00 08 09 57 87 c2 87 | 09 a8 83 1d 00 c2 87 08 |....W...|........|
|00000800| 09 99 87 22 20 5b 61 20 | 62 20 74 5d 20 32 5d 20 |..." [a |b t] 2] |
|00000810| 66 75 6e 63 74 69 6f 6e | 20 76 65 63 74 6f 72 70 |function| vectorp|
|00000820| 20 76 65 63 74 6f 72 20 | 69 20 30 5d 20 35 20 28 | vector |i 0] 5 (|
|00000830| 23 24 20 2e 20 31 32 31 | 38 29 5d 29 0a 23 40 31 |#$ . 121|8)]).#@1|
|00000840| 36 35 20 52 65 61 64 20 | 61 20 6e 75 6d 62 65 72 |65 Read |a number|
|00000850| 20 66 72 6f 6d 20 74 68 | 65 20 6d 69 6e 69 62 75 | from th|e minibu|
|00000860| 66 66 65 72 2e 0a 4b 65 | 65 70 20 72 65 65 6e 74 |ffer..Ke|ep reent|
|00000870| 65 72 69 6e 67 20 74 68 | 65 20 6d 69 6e 69 62 75 |ering th|e minibu|
|00000880| 66 66 65 72 20 75 6e 74 | 69 6c 20 77 65 20 67 65 |ffer unt|il we ge|
|00000890| 74 20 73 75 69 74 61 62 | 6c 65 20 69 6e 70 75 74 |t suitab|le input|
|000008a0| 2e 0a 49 66 20 6f 70 74 | 69 6f 6e 61 6c 20 61 72 |..If opt|ional ar|
|000008b0| 67 75 6d 65 6e 74 20 49 | 4e 54 45 47 45 52 53 2d |gument I|NTEGERS-|
|000008c0| 4f 4e 4c 59 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2c |ONLY is |non-nil,|
|000008d0| 20 69 6e 73 69 73 74 20 | 6f 6e 20 61 6e 20 69 6e | insist |on an in|
|000008e0| 74 65 67 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |teger...|(defalia|
|000008f0| 73 20 27 72 65 61 64 2d | 6e 75 6d 62 65 72 20 23 |s 'read-|number #|
|00000900| 5b 28 70 72 6f 6d 70 74 | 20 26 6f 70 74 69 6f 6e |[(prompt| &option|
|00000910| 61 6c 20 69 6e 74 65 67 | 65 72 73 2d 6f 6e 6c 79 |al integ|ers-only|
|00000920| 29 20 22 c0 89 09 83 5c | 6e 00 c2 82 0b 00 c3 1c |) "....\|n.......|
|00000930| 1d 1e 06 0e 06 84 44 00 | c7 0e 08 21 1e 09 c0 ca |......D.|...!....|
|00000940| cb 8f 88 5c 66 0d 21 83 | 2b 00 cc 16 06 82 40 00 |...\f.!.|+.....@.|
|00000950| cc 1e 0d ce cf 09 83 38 | 00 d0 82 39 00 d1 5c 22 |.......8|...9..\"|
|00000960| 88 d2 d3 21 88 29 29 82 | 0f 00 0d 2b 87 22 20 5b |...!.)).|...+." [|
|00000970| 6e 69 6c 20 69 6e 74 65 | 67 65 72 73 2d 6f 6e 6c |nil inte|gers-onl|
|00000980| 79 20 69 6e 74 65 67 65 | 72 70 20 6e 75 6d 62 65 |y intege|rp numbe|
|00000990| 72 70 20 70 72 65 64 69 | 63 61 74 65 20 6e 75 6d |rp predi|cate num|
|000009a0| 62 65 72 20 73 75 63 63 | 65 73 73 20 72 65 61 64 |ber succ|ess read|
|000009b0| 2d 73 74 72 69 6e 67 20 | 70 72 6f 6d 70 74 20 69 |-string |prompt i|
|000009c0| 6e 70 75 74 2d 73 74 72 | 69 6e 67 20 28 62 79 74 |nput-str|ing (byt|
|000009d0| 65 2d 63 6f 64 65 20 22 | c0 09 21 12 c0 87 22 20 |e-code "|..!..." |
|000009e0| 5b 72 65 61 64 20 69 6e | 70 75 74 2d 73 74 72 69 |[read in|put-stri|
|000009f0| 6e 67 20 6e 75 6d 62 65 | 72 5d 20 32 29 20 28 28 |ng numbe|r] 2) ((|
|00000a00| 65 72 72 6f 72 29 29 20 | 74 20 63 75 72 73 6f 72 |error)) |t cursor|
|00000a10| 2d 69 6e 2d 65 63 68 6f | 2d 61 72 65 61 20 6d 65 |-in-echo|-area me|
|00000a20| 73 73 61 67 65 20 22 50 | 6c 65 61 73 65 20 74 79 |ssage "P|lease ty|
|00000a30| 70 65 20 25 73 22 20 22 | 61 6e 20 69 6e 74 65 67 |pe %s" "|an integ|
|00000a40| 65 72 22 20 22 61 20 6e | 75 6d 62 65 72 22 20 73 |er" "a n|umber" s|
|00000a50| 69 74 2d 66 6f 72 20 31 | 5d 20 33 20 28 23 24 20 |it-for 1|] 3 (#$ |
|00000a60| 2e 20 32 31 31 35 29 20 | 6e 69 6c 5d 29 0a 28 64 |. 2115) |nil]).(d|
|00000a70| 65 66 61 6c 69 61 73 20 | 27 72 65 61 6c 2d 70 61 |efalias |'real-pa|
|00000a80| 74 68 2d 6e 61 6d 65 20 | 23 5b 28 6e 61 6d 65 20 |th-name |#[(name |
|00000a90| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 65 66 61 75 6c |&optiona|l defaul|
|00000aa0| 74 29 20 22 c0 c1 5c 6e | 0b 5c 22 21 87 22 20 5b |t) "..\n|.\"!." [|
|00000ab0| 66 69 6c 65 2d 74 72 75 | 65 6e 61 6d 65 20 65 78 |file-tru|ename ex|
|00000ac0| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 6e |pand-fil|e-name n|
|00000ad0| 61 6d 65 20 64 65 66 61 | 75 6c 74 5d 20 34 5d 29 |ame defa|ult] 4])|
|00000ae0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 72 65 61 64 |.(defali|as 'read|
|00000af0| 2d 6d 6f 75 73 65 2d 70 | 6f 73 69 74 69 6f 6e 20 |-mouse-p|osition |
|00000b00| 23 5b 28 66 72 61 6d 65 | 29 20 22 c0 20 89 19 40 |#[(frame|) ". ..@|
|00000b10| 5c 6e 3d 85 5c 66 00 09 | 41 29 87 22 20 5b 6d 6f |\n=.\f..|A)." [mo|
|00000b20| 75 73 65 2d 70 6f 73 69 | 74 69 6f 6e 20 70 6f 73 |use-posi|tion pos|
|00000b30| 20 66 72 61 6d 65 5d 20 | 33 5d 29 0a 23 40 31 37 | frame] |3]).#@17|
|00000b40| 31 20 53 77 69 74 63 68 | 20 74 6f 20 74 68 65 20 |1 Switch| to the |
|00000b50| 70 72 65 76 69 6f 75 73 | 20 62 75 66 66 65 72 2e |previous| buffer.|
|00000b60| 0a 57 69 74 68 20 61 20 | 6e 75 6d 65 72 69 63 20 |.With a |numeric |
|00000b70| 61 72 67 20 4e 2c 20 73 | 77 69 74 63 68 20 74 6f |arg N, s|witch to|
|00000b80| 20 74 68 65 20 4e 74 68 | 20 6d 6f 73 74 20 72 65 | the Nth| most re|
|00000b90| 63 65 6e 74 20 62 75 66 | 66 65 72 2e 0a 57 69 74 |cent buf|fer..Wit|
|00000ba0| 68 20 61 6e 20 61 72 67 | 20 6f 66 20 30 2c 20 62 |h an arg| of 0, b|
|00000bb0| 75 72 69 65 73 20 74 68 | 65 20 63 75 72 72 65 6e |uries th|e curren|
|00000bc0| 74 20 62 75 66 66 65 72 | 20 61 74 20 74 68 65 0a |t buffer| at the.|
|00000bd0| 62 6f 74 74 6f 6d 20 6f | 66 20 74 68 65 20 62 75 |bottom o|f the bu|
|00000be0| 66 66 65 72 20 73 74 61 | 63 6b 2e 1f 0a 28 64 65 |ffer sta|ck...(de|
|00000bf0| 66 61 6c 69 61 73 20 27 | 73 77 69 74 63 68 2d 74 |falias '|switch-t|
|00000c00| 6f 2d 6f 74 68 65 72 2d | 62 75 66 66 65 72 20 23 |o-other-|buffer #|
|00000c10| 5b 28 61 72 67 29 20 22 | 08 c1 3d 83 5c 6e 00 c2 |[(arg) "|..=.\n..|
|00000c20| 70 21 88 c3 08 c4 58 83 | 17 00 c5 70 21 82 21 00 |p!....X.|...p!.!.|
|00000c30| 08 c6 c7 c8 c9 ca 20 5c | 22 5c 22 38 21 87 22 20 |...... \|"\"8!." |
|00000c40| 5b 61 72 67 20 30 20 62 | 75 72 79 2d 62 75 66 66 |[arg 0 b|ury-buff|
|00000c50| 65 72 20 73 77 69 74 63 | 68 2d 74 6f 2d 62 75 66 |er switc|h-to-buf|
|00000c60| 66 65 72 20 31 20 6f 74 | 68 65 72 2d 62 75 66 66 |fer 1 ot|her-buff|
|00000c70| 65 72 20 61 70 70 6c 79 | 20 6e 63 6f 6e 63 20 6d |er apply| nconc m|
|00000c80| 61 70 63 61 72 20 23 5b | 28 62 75 66 29 20 22 c0 |apcar #[|(buf) ".|
|00000c90| c1 5c 6e 21 21 c3 55 3f | 85 0d 00 5c 6e 43 87 22 |.\n!!.U?|...\nC."|
|00000ca0| 20 5b 73 74 72 69 6e 67 | 2d 74 6f 2d 63 68 61 72 | [string|-to-char|
|00000cb0| 20 62 75 66 66 65 72 2d | 6e 61 6d 65 20 62 75 66 | buffer-|name buf|
|00000cc0| 20 33 32 5d 20 33 5d 20 | 62 75 66 66 65 72 2d 6c | 32] 3] |buffer-l|
|00000cd0| 69 73 74 5d 20 37 20 28 | 23 24 20 2e 20 32 38 38 |ist] 7 (|#$ . 288|
|00000ce0| 32 29 20 22 70 22 5d 29 | 0a 28 62 79 74 65 2d 63 |2) "p"])|.(byte-c|
|00000cf0| 6f 64 65 20 22 c0 c1 c2 | 5c 22 88 c0 c3 c4 5c 22 |ode "...|\"....\"|
|00000d00| 88 c0 c5 c6 5c 22 87 22 | 20 5b 64 65 66 61 6c 69 |....\"."| [defali|
|00000d10| 61 73 20 66 69 6e 64 2d | 66 61 63 65 20 69 6e 74 |as find-|face int|
|00000d20| 65 72 6e 61 6c 2d 66 69 | 6e 64 2d 66 61 63 65 20 |ernal-fi|nd-face |
|00000d30| 67 65 74 2d 66 61 63 65 | 20 69 6e 74 65 72 6e 61 |get-face| interna|
|00000d40| 6c 2d 67 65 74 2d 66 61 | 63 65 20 74 72 79 2d 66 |l-get-fa|ce try-f|
|00000d50| 61 63 65 2d 66 6f 6e 74 | 20 69 6e 74 65 72 6e 61 |ace-font| interna|
|00000d60| 6c 2d 74 72 79 2d 66 61 | 63 65 2d 66 6f 6e 74 5d |l-try-fa|ce-font]|
|00000d70| 20 33 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d | 3).(def|alias 'm|
|00000d80| 61 6b 65 2d 65 78 74 65 | 6e 74 20 23 5b 28 62 65 |ake-exte|nt #[(be|
|00000d90| 67 20 65 6e 64 20 26 6f | 70 74 69 6f 6e 61 6c 20 |g end &o|ptional |
|00000da0| 62 75 66 66 65 72 29 20 | 22 c0 09 5c 6e 0b 23 87 |buffer) |"..\n.#.|
|00000db0| 22 20 5b 6d 61 6b 65 2d | 6f 76 65 72 6c 61 79 20 |" [make-|overlay |
|00000dc0| 62 65 67 20 65 6e 64 20 | 62 75 66 66 65 72 5d 20 |beg end |buffer] |
|00000dd0| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |4]).(def|alias 's|
|00000de0| 65 74 2d 65 78 74 65 6e | 74 2d 70 72 6f 70 65 72 |et-exten|t-proper|
|00000df0| 74 79 20 23 5b 28 65 78 | 74 65 6e 74 20 70 72 6f |ty #[(ex|tent pro|
|00000e00| 70 20 76 61 6c 75 65 29 | 20 22 08 c1 3d 83 40 00 |p value)| "..=.@.|
|00000e10| 5c 6e 83 23 00 c3 5c 66 | 08 5c 22 84 23 00 c5 c6 |\n.#..\f|.\".#...|
|00000e20| 5c 66 21 c7 5c 66 21 c8 | 5c 66 21 c9 5c 66 21 24 |\f!.\f!.|\f!.\f!$|
|00000e30| 88 82 55 00 5c 6e 84 55 | 00 c3 5c 66 08 5c 22 83 |..U.\n.U|..\f.\".|
|00000e40| 55 00 ca c6 5c 66 21 c7 | 5c 66 21 c8 5c 66 21 c9 |U...\f!.|\f!.\f!.|
|00000e50| 5c 66 21 24 88 82 55 00 | c3 5c 66 c1 5c 22 83 55 |\f!$..U.|.\f.\".U|
|00000e60| 00 cb c6 5c 66 21 c7 5c | 66 21 08 5c 6e c9 5c 66 |...\f!.\|f!.\n.\f|
|00000e70| 21 25 88 cc 5c 66 08 5c | 6e 23 87 22 20 5b 70 72 |!%..\f.\|n#." [pr|
|00000e80| 6f 70 20 64 75 70 6c 69 | 63 61 62 6c 65 20 76 61 |op dupli|cable va|
|00000e90| 6c 75 65 20 6f 76 65 72 | 6c 61 79 2d 67 65 74 20 |lue over|lay-get |
|00000ea0| 65 78 74 65 6e 74 20 61 | 64 64 2d 74 65 78 74 2d |extent a|dd-text-|
|00000eb0| 70 72 6f 70 65 72 74 69 | 65 73 20 6f 76 65 72 6c |properti|es overl|
|00000ec0| 61 79 2d 73 74 61 72 74 | 20 6f 76 65 72 6c 61 79 |ay-start| overlay|
|00000ed0| 2d 65 6e 64 20 6f 76 65 | 72 6c 61 79 2d 70 72 6f |-end ove|rlay-pro|
|00000ee0| 70 65 72 74 69 65 73 20 | 6f 76 65 72 6c 61 79 2d |perties |overlay-|
|00000ef0| 62 75 66 66 65 72 20 72 | 65 6d 6f 76 65 2d 74 65 |buffer r|emove-te|
|00000f00| 78 74 2d 70 72 6f 70 65 | 72 74 69 65 73 20 70 75 |xt-prope|rties pu|
|00000f10| 74 2d 74 65 78 74 2d 70 | 72 6f 70 65 72 74 79 20 |t-text-p|roperty |
|00000f20| 6f 76 65 72 6c 61 79 2d | 70 75 74 5d 20 37 5d 29 |overlay-|put] 7])|
|00000f30| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 65 74 2d |.(defali|as 'set-|
|00000f40| 65 78 74 65 6e 74 2d 66 | 61 63 65 20 23 5b 28 65 |extent-f|ace #[(e|
|00000f50| 78 74 65 6e 74 20 66 61 | 63 65 29 20 22 c0 09 c2 |xtent fa|ce) "...|
|00000f60| 5c 6e 23 87 22 20 5b 73 | 65 74 2d 65 78 74 65 6e |\n#." [s|et-exten|
|00000f70| 74 2d 70 72 6f 70 65 72 | 74 79 20 65 78 74 65 6e |t-proper|ty exten|
|00000f80| 74 20 66 61 63 65 5d 20 | 34 5d 29 0a 28 64 65 66 |t face] |4]).(def|
|00000f90| 61 6c 69 61 73 20 27 64 | 65 6c 65 74 65 2d 65 78 |alias 'd|elete-ex|
|00000fa0| 74 65 6e 74 20 23 5b 28 | 65 78 74 65 6e 74 29 20 |tent #[(|extent) |
|00000fb0| 22 c0 09 c2 c3 23 88 c4 | 09 21 87 22 20 5b 73 65 |"....#..|.!." [se|
|00000fc0| 74 2d 65 78 74 65 6e 74 | 2d 70 72 6f 70 65 72 74 |t-extent|-propert|
|00000fd0| 79 20 65 78 74 65 6e 74 | 20 64 75 70 6c 69 63 61 |y extent| duplica|
|00000fe0| 62 6c 65 20 6e 69 6c 20 | 64 65 6c 65 74 65 2d 6f |ble nil |delete-o|
|00000ff0| 76 65 72 6c 61 79 5d 20 | 34 5d 29 0a 28 62 79 74 |verlay] |4]).(byt|
|00001000| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c0 c3 |e-code "|...\"...|
|00001010| c4 5c 22 88 c0 c5 c6 5c | 22 88 c0 c7 c8 5c 22 88 |.\"....\|"....\".|
|00001020| c0 c9 ca 5c 22 88 c0 cb | cc 5c 22 88 c0 cd ce 5c |...\"...|.\"....\|
|00001030| 22 88 c0 cf d0 5c 22 88 | c0 d1 d2 5c 22 88 c0 d3 |"....\".|...\"...|
|00001040| d4 5c 22 88 c0 d5 d6 5c | 22 88 c0 d7 d8 5c 22 88 |.\"....\|"....\".|
|00001050| c0 d9 da 5c 22 88 c0 db | dc 5c 22 88 c0 dd de 5c |...\"...|.\"....\|
|00001060| 22 88 c0 df e0 5c 22 88 | c0 e1 e2 5c 22 88 c0 e3 |"....\".|...\"...|
|00001070| e4 5c 22 88 c0 e5 e6 5c | 22 88 c0 e7 e8 5c 22 88 |.\"....\|"....\".|
|00001080| c0 e9 ea 5c 22 88 c0 eb | ec 5c 22 88 c0 ed ee 5c |...\"...|.\"....\|
|00001090| 22 88 c0 ef f0 5c 22 88 | c0 f1 f2 5c 22 88 c0 f3 |"....\".|...\"...|
|000010a0| f4 5c 22 88 c0 f5 f6 5c | 22 88 c0 f7 f8 5c 22 88 |.\"....\|"....\".|
|000010b0| c0 f9 fa 5c 22 88 c0 fb | fc 5c 22 88 c0 fd fe 5c |...\"...|.\"....\|
|000010c0| 22 88 c0 ff 81 40 00 5c | 22 88 c0 81 41 00 81 42 |"....@.\|"...A..B|
|000010d0| 00 5c 22 88 81 43 00 81 | 44 00 21 87 22 20 5b 64 |.\"..C..|D.!." [d|
|000010e0| 65 66 61 6c 69 61 73 20 | 63 75 72 72 65 6e 74 2d |efalias |current-|
|000010f0| 73 63 72 65 65 6e 2d 63 | 6f 6e 66 69 67 75 72 61 |screen-c|onfigura|
|00001100| 74 69 6f 6e 20 63 75 72 | 72 65 6e 74 2d 66 72 61 |tion cur|rent-fra|
|00001110| 6d 65 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |me-confi|guration|
|00001120| 20 64 65 6c 65 74 65 2d | 73 63 72 65 65 6e 20 64 | delete-|screen d|
|00001130| 65 6c 65 74 65 2d 66 72 | 61 6d 65 20 66 69 6e 64 |elete-fr|ame find|
|00001140| 2d 66 69 6c 65 2d 6e 65 | 77 2d 73 63 72 65 65 6e |-file-ne|w-screen|
|00001150| 20 66 69 6e 64 2d 66 69 | 6c 65 2d 6f 74 68 65 72 | find-fi|le-other|
|00001160| 2d 66 72 61 6d 65 20 66 | 69 6e 64 2d 66 69 6c 65 |-frame f|ind-file|
|00001170| 2d 72 65 61 64 2d 6f 6e | 6c 79 2d 6e 65 77 2d 73 |-read-on|ly-new-s|
|00001180| 63 72 65 65 6e 20 66 69 | 6e 64 2d 66 69 6c 65 2d |creen fi|nd-file-|
|00001190| 72 65 61 64 2d 6f 6e 6c | 79 2d 6f 74 68 65 72 2d |read-onl|y-other-|
|000011a0| 66 72 61 6d 65 20 66 69 | 6e 64 2d 74 61 67 2d 6e |frame fi|nd-tag-n|
|000011b0| 65 77 2d 73 63 72 65 65 | 6e 20 66 69 6e 64 2d 74 |ew-scree|n find-t|
|000011c0| 61 67 2d 6f 74 68 65 72 | 2d 66 72 61 6d 65 20 69 |ag-other|-frame i|
|000011d0| 63 6f 6e 69 66 79 2d 73 | 63 72 65 65 6e 20 69 63 |conify-s|creen ic|
|000011e0| 6f 6e 69 66 79 2d 66 72 | 61 6d 65 20 6d 61 69 6c |onify-fr|ame mail|
|000011f0| 2d 6e 65 77 2d 73 63 72 | 65 65 6e 20 6d 61 69 6c |-new-scr|een mail|
|00001200| 2d 6f 74 68 65 72 2d 66 | 72 61 6d 65 20 6d 61 6b |-other-f|rame mak|
|00001210| 65 2d 73 63 72 65 65 6e | 2d 69 6e 76 69 73 69 62 |e-screen|-invisib|
|00001220| 6c 65 20 6d 61 6b 65 2d | 66 72 61 6d 65 2d 69 6e |le make-|frame-in|
|00001230| 76 69 73 69 62 6c 65 20 | 6d 61 6b 65 2d 73 63 72 |visible |make-scr|
|00001240| 65 65 6e 2d 76 69 73 69 | 62 6c 65 20 6d 61 6b 65 |een-visi|ble make|
|00001250| 2d 66 72 61 6d 65 2d 76 | 69 73 69 62 6c 65 20 6d |-frame-v|isible m|
|00001260| 6f 64 69 66 79 2d 73 63 | 72 65 65 6e 2d 70 61 72 |odify-sc|reen-par|
|00001270| 61 6d 65 74 65 72 73 20 | 6d 6f 64 69 66 79 2d 66 |ameters |modify-f|
|00001280| 72 61 6d 65 2d 70 61 72 | 61 6d 65 74 65 72 73 20 |rame-par|ameters |
|00001290| 6e 65 78 74 2d 73 63 72 | 65 65 6e 20 6e 65 78 74 |next-scr|een next|
|000012a0| 2d 66 72 61 6d 65 20 72 | 65 64 72 61 77 2d 73 63 |-frame r|edraw-sc|
|000012b0| 72 65 65 6e 20 72 65 64 | 72 61 77 2d 66 72 61 6d |reen red|raw-fram|
|000012c0| 65 20 73 63 72 65 65 6e | 2d 68 65 69 67 68 74 20 |e screen|-height |
|000012d0| 66 72 61 6d 65 2d 68 65 | 69 67 68 74 20 73 63 72 |frame-he|ight scr|
|000012e0| 65 65 6e 2d 6c 69 73 74 | 20 66 72 61 6d 65 2d 6c |een-list| frame-l|
|000012f0| 69 73 74 20 73 63 72 65 | 65 6e 2d 70 61 72 61 6d |ist scre|en-param|
|00001300| 65 74 65 72 73 20 66 72 | 61 6d 65 2d 70 61 72 61 |eters fr|ame-para|
|00001310| 6d 65 74 65 72 73 20 73 | 63 72 65 65 6e 2d 70 69 |meters s|creen-pi|
|00001320| 78 65 6c 2d 68 65 69 67 | 68 74 20 66 72 61 6d 65 |xel-heig|ht frame|
|00001330| 2d 70 69 78 65 6c 2d 68 | 65 69 67 68 74 20 73 63 |-pixel-h|eight sc|
|00001340| 72 65 65 6e 2d 70 69 78 | 65 6c 2d 77 69 64 74 68 |reen-pix|el-width|
|00001350| 20 66 72 61 6d 65 2d 70 | 69 78 65 6c 2d 77 69 64 | frame-p|ixel-wid|
|00001360| 74 68 20 73 63 72 65 65 | 6e 2d 72 6f 6f 74 2d 77 |th scree|n-root-w|
|00001370| 69 6e 64 6f 77 20 66 72 | 61 6d 65 2d 72 6f 6f 74 |indow fr|ame-root|
|00001380| 2d 77 69 6e 64 6f 77 20 | 73 63 72 65 65 6e 2d 73 |-window |screen-s|
|00001390| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 66 |elected-|window f|
|000013a0| 72 61 6d 65 2d 73 65 6c | 65 63 74 65 64 2d 77 69 |rame-sel|ected-wi|
|000013b0| 6e 64 6f 77 20 6c 6f 77 | 65 72 2d 73 63 72 65 65 |ndow low|er-scree|
|000013c0| 6e 20 6c 6f 77 65 72 2d | 66 72 61 6d 65 20 72 61 |n lower-|frame ra|
|000013d0| 69 73 65 2d 73 63 72 65 | 65 6e 20 72 61 69 73 65 |ise-scre|en raise|
|000013e0| 2d 66 72 61 6d 65 20 73 | 63 72 65 65 6e 2d 76 69 |-frame s|creen-vi|
|000013f0| 73 69 62 6c 65 2d 70 20 | 66 72 61 6d 65 2d 76 69 |sible-p |frame-vi|
|00001400| 73 69 62 6c 65 2d 70 20 | 73 63 72 65 65 6e 2d 77 |sible-p |screen-w|
|00001410| 69 64 74 68 20 66 72 61 | 6d 65 2d 77 69 64 74 68 |idth fra|me-width|
|00001420| 20 73 63 72 65 65 6e 70 | 20 66 72 61 6d 65 70 20 | screenp| framep |
|00001430| 73 65 6c 65 63 74 2d 73 | 63 72 65 65 6e 20 73 65 |select-s|creen se|
|00001440| 6c 65 63 74 2d 66 72 61 | 6d 65 20 73 65 6c 65 63 |lect-fra|me selec|
|00001450| 74 65 64 2d 73 63 72 65 | 65 6e 20 73 65 6c 65 63 |ted-scre|en selec|
|00001460| 74 65 64 2d 66 72 61 6d | 65 20 73 65 74 2d 73 63 |ted-fram|e set-sc|
|00001470| 72 65 65 6e 2d 70 6f 73 | 69 74 69 6f 6e 20 73 65 |reen-pos|ition se|
|00001480| 74 2d 66 72 61 6d 65 2d | 70 6f 73 69 74 69 6f 6e |t-frame-|position|
|00001490| 20 73 65 74 2d 73 63 72 | 65 65 6e 2d 73 69 7a 65 | set-scr|een-size|
|000014a0| 20 73 65 74 2d 66 72 61 | 6d 65 2d 73 69 7a 65 20 | set-fra|me-size |
|000014b0| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|000014c0| 2d 6e 65 77 2d 73 63 72 | 65 65 6e 20 73 77 69 74 |-new-scr|een swit|
|000014d0| 63 68 2d 74 6f 2d 62 75 | 66 66 65 72 2d 6f 74 68 |ch-to-bu|ffer-oth|
|000014e0| 65 72 2d 66 72 61 6d 65 | 20 76 69 73 69 62 6c 65 |er-frame| visible|
|000014f0| 2d 73 63 72 65 65 6e 2d | 6c 69 73 74 20 76 69 73 |-screen-|list vis|
|00001500| 69 62 6c 65 2d 66 72 61 | 6d 65 2d 6c 69 73 74 20 |ible-fra|me-list |
|00001510| 77 69 6e 64 6f 77 2d 73 | 63 72 65 65 6e 20 77 69 |window-s|creen wi|
|00001520| 6e 64 6f 77 2d 66 72 61 | 6d 65 20 78 2d 63 72 65 |ndow-fra|me x-cre|
|00001530| 61 74 65 2d 73 63 72 65 | 65 6e 20 78 2d 63 72 65 |ate-scre|en x-cre|
|00001540| 61 74 65 2d 66 72 61 6d | 65 20 78 2d 6e 65 77 2d |ate-fram|e x-new-|
|00001550| 73 63 72 65 65 6e 20 6d | 61 6b 65 2d 66 72 61 6d |screen m|ake-fram|
|00001560| 65 20 70 72 6f 76 69 64 | 65 20 6c 75 63 69 64 5d |e provid|e lucid]|
|00001570| 20 33 29 0a             |                         | 3).    |        |
+--------+-------------------------+-------------------------+--------+--------+